10 POKE147,0:SYS57812"SS",8,1:SYS62631
20 POKE53280,0:POKE53281,0:DIMCL(8),D$(15)
30 PRINT"[147]"
40 PRINT"[129][211] [195] [210] [197] [197] [206]    [211] [215] [201] [212] [195] [200] [197] [210]   [196] [197] [205] [207]"
50 PRINT"[149]    BY [198]ENDER [212]UCKER AND [199]ERRY [193]BEAR"
60 PRINT"[159]  [212]HIS PROGRAM DEMONSTRATES HOW YOU CAN"
70 PRINT"USE [211]CREEN [211]WITCHER IN YOUR PROGRAMS TO"
80 PRINT"FLIP IN AN [201]NSTRUCTIONS [211]CREEN AT ANY"
90 PRINT"POINT WHILE SAVING THE CURRENT PLAY"
100 PRINT"SCREEN.  [211]EE THE LISTING OF THIS PROGRAM"
110 PRINT"[145]TO SEE HOW THE FOUR [211][217][211]TEM CALLS WORK."
120 PRINT"    [158][211][217][211] 886[154] - [211]AVE [211]CREEN #1"
130 PRINT"    [158][211][217][211] 907[154] - [210]ESTORE [211]CREEN #1"
140 PRINT"    [158][211][217][211] 928[154] - [211]AVE [211]CREEN #2
150 [153]"    SYS(null)(null)(null) 949CONT - (null)ESTORE (null)CREEN #2"
160 [153]"       (null)RESS (null)(null)ATNLENVALWAIT TO CONTINUE"
165 [153]"  (null)RESS (null)VAL(null)(null)(null)(null)WAIT TO RETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)ON"
170 [158]886:[143] SAVE INFO SCREEN TO $C000
180 [161]A$:[139]A$[179][177]" "[175] A$[179][177][199](13)[167]180
185 [139]A$[178]" "[167]190
187 [137]666
190 [153]"LOAD"
200 [129]I[178]0[164]7:[135]CL(I):[130]
210 [129]I[178]0[164]14:[135]D$(I):[130]
220 N1[178]1024:N2[178]40:N3[178].625
230 N4[178]39.9999:CS[178]54272:T[178]0
240 [129]W[178]0[164]30
250 [129]I[178]15[164]3[169][171]1
260 [129]J[178]0[164]17
270 K[178]I[170]J:C[178]CL((J[172]3[173](I[170]3)[170]I[172]W[173]12)[175]7)
280 Y1[178]N1[170]N2[172][181](N3[172]I)
290 Y2[178]N1[170]N2[172][181](N3[172]K)
300 Y3[178]N1[170]N2[172][181](N3[172](N4[171]I))
310 Y4[178]N1[170]N2[172][181](N3[172](N4[171]K)):X[178]C[171](30[171]T)
320 [151]I[170]Y2,C:[151](I[170]Y2)[170]CS,X
330 [151]N2[171]I[170]Y4,C:[151](N2[171]I[170]Y4)[170]CS,X
340 [151]N2[171]I[170]Y2,C:[151](N2[171]I[170]Y2)[170]CS,X
350 [151]I[170]Y4,C:[151](I[170]Y4)[170]CS,X
360 [151]K[170]Y1,C:[151](K[170]Y1)[170]CS,X
370 [151]N2[171]K[170]Y3,C:[151](N2[171]K[170]Y3)[170]CS,X
380 [151]K[170]Y3,C:[151](K[170]Y3)[170]CS,X
390 [151]N2[171]K[170]Y1,C:[151](N2[171]K[170]Y1)[170]CS,X
400 [139][194](203)[178]60[167][141]630
410 [139]J[173]4[179][177][181](J[173]4)[167]440
420 [151]646,7:[151]214,11:[153]:[153][163]16)D$(L)
430 L[178]L[170]1:[139]L[177]15[167]L[178]0
440 [130]:[130]
450 T[178]T[170]1:[139]T[178]15[167]T[178]0
460 [130]:[137]240
470 [131]42,94,170,35,91,95,127,160
480 [131]"CHR$REETINGS"
490 [131]"  FROM   "
500 [131]"  CHR$ERRY  "
510 [131]"  ATNBEAR  "
520 [131]"   AND   "
530 [131]"  ASCENDER "
540 [131]"  (null)UCKER "
550 [131]"  (null)RESS  "
560 [131]"  (null)(null)ATNLENVAL  "
570 [131]" TO SAVE "
580 [131]" CURRENT "
590 [131]"  SCREEN "
600 [131]" AND SEE "
610 [131]"  RIGHT$NFO   "
620 [131]"  RIGHT$NFO   "
630 [158]928:[143] SAVE SCREEN 2
640 [158]907:[143] AND RESTORE INFO SCREEN
650 [151]198,0
660 [161]A$:[139]A$[179][177]" "[175]A$[179][177][199](13)[167]660
665 [139]A$[178]" "[167]670
666 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
667 [139]ER%[179][177]63[167][128]
668 [147]"HELLO CONNECT",8
670 [158]949:[143] BACK TO COFFEE BREAK
680 [142]